home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 217 / 217.d81 / b.script text (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  671b  |  17 lines
  1. 5 poke53281,0:poke53280,6:print"[147]"spc(10)"[211]cript [212]ext [205]enu"
  2. 6 print"1 ==> [195]ursive text"
  3. 7 print"2 ==> [201]talic text"
  4. 8 print"3 ==> [210]eturn to [204][207][193][196][211][212][193][210]"
  5. 10 input"[215]hich";n$:poke53281,15:n=val(n$)
  6. 11 ifn<>1andn<>2andn<>3then5
  7. 12 ifn=1thenn$="cursive"
  8. 13 ifn=2thenn$="italic"
  9. 14 ifn=3thenload"hello connect",8:end
  10. 20 print"[144]normal type:":print"abcdefghijklmnopqrstuvwxyz1234567890":print
  11. 30 print"shifted type:":print"[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]":print
  12. 40 print"reverse type:":print"abcdefghijklmnopqrstuvwxyz1234567890":print
  13. 50 print"[146]reverse shifted type:":print"[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218]"
  14. 60 poke56334,peek(56334)or1:poke53272,(peek(53272)and240)+12
  15. 70 open1,8,12,n$+"*,p,r":get#1,a$,a$
  16. 80 fori=.to255:forj=.to7:get#1,a$:poke12288+j+i*8,asc(a$+chr$(.)):nextj,i:close1
  17.